home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / NOVA42.SFX / nova.BBS mode (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-02-12  |  15.0 KB  |  402 lines
  1. 10 DATA300,1200,2400,4800,9600,19200,38400
  2. 20 POKE787,PEEK(186):IFPEEK(6)=255AND(PEEK(2)<1ORPEEK(2)>2)THENPOKE45,PEEK(174):POKE46,PEEK(175):CLR
  3. 30 IFPEEK(787)<8ORPEEK(787)>16THENPOKE787,8
  4. 40 IFPEEK(2)<1ORPEEK(2)>2THENPOKE2,1:LOAD"NOVA9.4-1.ML",PEEK(787),1
  5. 50 IFPEEK(2)=1THENPOKE2,2:LOAD"NOVA9.4-2.ML",PEEK(787),1
  6. 60 POKE2,0:POKE55,0:POKE56,130:POKE643,0:POKE644,130:SYS38436:CLR
  7. 70 OPEN5,2,0,CHR$(6):ML=38400
  8. 80 SL=52608:DT=USR(ML+87):SA=USR(4):PT=49161:OP=ML+15:XM=1024:RV=XM+256
  9. 90 MD=52224:M1=MD+18:SN=PEEK(648)*256:Q$=CHR$(34):DIMMS$(20),BD$(6)
  10. 100 LC$="":OF$="":NC=0:SC=0:NU=0:ND=0:NF=0:MB=PEEK(M1):FORI=0TO6:READBD$(I):NEXT
  11. 105 MM$="&C1E0M0V0X1S0=1"
  12. 110 SP$="                                       ":DN$=""
  13. 120 POKESA,PEEK(SA)OR128:POKESA+4,PEEK(SA+4)OR128:POKE6,176
  14. 130 DP=PEEK(787):IFDP<8ORDP>16THENDP=8
  15. 140 OPEN15,DP,15:DP$="0:":GOSUB4090:D%(1)=DP:D$(1)=DP$:DD=1:SYSSL+6:CA=PEEK(780)
  16. 150 F1$="LOGIN.TXT":F2$="MENU.TXT":F3$="LOGOUT.TXT":GOSUB720
  17. 160 OPEN2,DP,2,DP$+"\STATS":INPUT#15,E:IFE>19THENCLOSE2:GOTO180
  18. 170 INPUT#2,LC$,OF$,NC,SC,NU,ND,NF:CLOSE2
  19. 180 IF(PEEK(M1+4)AND1)ANDCA=0THENPOKE780,MB:SYSML+33:SYSMD+9:SYSMD+3
  20. 190 PRINT"[147]"TAB(10)"[206]OVATERM 9.4 [194][194][211] MODE":PRINT"[197]NTER THE TIME: [200][200]:[205][205]";
  21. 200 POKE211,16:P9=5:GOSUB2410:IFI$=""THEN
  22. 210 IFMID$(I$,3,1)<>":"THEN190
  23. 220 H=VAL(LEFT$(I$,2)):M=VAL(MID$(I$,4,1))*16+VAL(MID$(I$,5,1)):A=0:IFH>12THENH=H-12:A=1
  24. 230 IFH=0ORH=12THENH=12:A=1-A
  25. 240 H=128*A+H+INT(H/10)*6:POKE56587,H:POKE56586,M:POKE56585,S:POKE56584,0
  26. 250 P=1
  27. 260 PRINT"[147]"TAB(10)"[206]OVATERM 9.4 [194][194][211] MODE"
  28. 270 PRINTTAB(15)"[211]ETUP MENU":PRINTTAB(15)"[163][163][163][163][163][163][163][163][163][163]"
  29. 280 PRINT" [211]YSOP NAME[160] : "SY$:PRINT" [194][194][211] NAME[160]   : "BB$
  30. 290 PRINT" [211]YSTEM PSWD[160]: "PW$:PRINT" [211]YSOP PSWD[160] : "PS$:PRINT" [201]NIT[160]: AT"MM$
  31. 300 PRINT" [207]PENING MSG[160]: "F1$:PRINT" [205]AIN MENU[160]  : "F2$
  32. 310 PRINT" [204]OGOFF MSG[160] : "F3$
  33. 320 PRINT" [211]YSTEM DRIVE[160]    :"STR$(DP)","LEFT$(DP$,1):PRINT" [193]VAILABLE DRIVES[160]"
  34. 330 PRINT" [211]AVE CONFIGURATION[160]":PRINT" [204]OAD CONFIGURATION[160]":PRINT" [211]TART [194][194][211][160]"
  35. 340 D=4:TB=1:MX=16:TU=32:GOSUB3920:POKE211,15:IFP>9THENPOKE211,20
  36. 341 IFP=5THENPOKE211,10
  37. 345 P8=PEEK(211):P9=-23*(P<5)-28*(P=5)-16*(P>6ANDP<10)-5*(P=11):IFP9THENGOSUB2410
  38. 350 ONPGOTO360,380,400,410,420,,430,440,450,,470,760,,660,710,960
  39. 360 SY$=I$:GOTO460
  40. 380 BB$=I$:GOTO460
  41. 400 PW$=I$:GOTO460
  42. 410 PS$=I$:GOTO460
  43. 420 MM$=I$:GOTO460
  44. 430 F1$=I$:GOTO460
  45. 440 F2$=I$:GOTO460
  46. 450 F3$=I$
  47. 460 PRINT""LEFT$(DN$,P+D)TAB(P8)LEFT$(I$+SP$,P9):GOTO280
  48. 470 IFI$=""THEN280
  49. 480 J=0:FORI=1TO5:IFMID$(I$,I,1)=","THENJ=I:I=5
  50. 490 NEXT:IFJ=0THEN520
  51. 500 A=VAL(MID$(I$,J+1)):IFA<0ORA>19THEN520
  52. 510 DP$=MID$(STR$(A),2)+":"
  53. 520 A=VAL(I$):IFA<8ORA>16THEN280
  54. 530 CLOSE15:OPEN15,A,15:CLOSE15:IF(128ANDST)=0THENDP=A
  55. 540 OPEN15,DP,15:GOTO280
  56. 660 PRINT#15,"S"DP$"\BBS CONFIG":OPEN2,DP,2,DP$+"\BBS CONFIG,S,W"
  57. 670 PRINT#2,Q$SY$:PRINT#2,Q$BB$:PRINT#2,Q$PW$:PRINT#2,Q$PS$:PRINT#2,Q$F1$
  58. 680 PRINT#2,Q$F2$:PRINT#2,Q$F3$:PRINT#2,DP:PRINT#2,Q$DP$
  59. 690 PRINT#2,DD:FORI=1TODD:PRINT#2,Q$DD$(I):PRINT#2,D%(I):PRINT#2,Q$D$(I):NEXT
  60. 700 PRINT#2,Q$MM$:CLOSE2:GOTO280
  61. 710 GOSUB720:GOTO280
  62. 720 OPEN2,DP,2,DP$+"\BBS CONFIG":INPUT#15,E:IFE>19THENCLOSE2:RETURN
  63. 730 INPUT#2,SY$,BB$,PW$,PS$,F1$,F2$,F3$,DP,DP$,DD
  64. 740 FORI=1TODD:INPUT#2,DD$(I),D%(I),D$(I):NEXT:IFST=0THENINPUT#2,MM$
  65. 750 CLOSE2:RETURN
  66. 760 PRINT"[147]"TAB(10)"[206]OVATERM 9.4 [194][194][211] MODE":PP=P:P=1
  67. 770 PRINTTAB(9)"[196]ISK DEVICE SETUP MENU":PRINTTAB(9)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  68. 780 PRINT" [196]IRECTORY CATEGORY      [196]EVICE  [196]RIVE":FORI=1TODD
  69. 790 PRINT" "LEFT$(DD$(I)+SP$,23)"  "D%(I)TAB(35)LEFT$(D$(I),LEN(D$(I))-1);
  70. 800 PRINTTAB(38)"[160]":NEXT:PRINTSP$:PRINT" [193]DD A DIRECTORY[160]   "
  71. 810 PRINT" [196]ELETE A DIRECTORY[160]":PRINT" [209]UIT[160]              ":PRINTSP$
  72. 820 D=5:TB=1:MX=DD+4:TU=32:GOSUB3920:IFP=MXTHENP=PP:GOTO260
  73. 830 SYSML+18:IFP=MX-1ANDD>1THENDL=1:GOTO780
  74. 840 IFP=MX-2THENDL=0:P=P-1:PRINT"[145]";:IFDD=10THEN780
  75. 850 IFDL=0ORDD=1THEN890
  76. 860 FORI=P+1TODD:DD$(I-1)=DD$(I):D%(I-1)=D%(I):D$(I-1)=D$(I):NEXT
  77. 870 DL=0:DD=DD-1:IFP>DDTHENP=DD
  78. 880 GOTO780
  79. 890 POKE211,1:P9=23:GOSUB2410:IFI$>""THENDD$(P)=I$
  80. 900 IFI$=""ANDP=MX-1THEN780
  81. 910 PRINT"[145]";:POKE211,27:P9=2:GOSUB2410:A=VAL(I$):IFA>=8ANDA<=15THEND%(P)=A
  82. 920 PRINT"[145]";:POKE211,35:P9=2:GOSUB2410:A=VAL(I$)
  83. 930 IFA>=0ANDA<20THEND$(P)=MID$(STR$(A),2)+":"
  84. 940 IFP>DDTHENDD=P
  85. 950 GOTO780
  86. 960 RN=8-(PEEK(56577)AND8):IFPEEK(M1+4)AND1THEN980
  87. 970 PRINT"[147][211]ET [207]-[193] SWITCH TO [193]NSWER AND HIT [210]ETURN[146]":WAIT198,1:GETA$
  88. 980 PRINT"[147][204]AST CALLER: "LC$:PRINT"[207]FF AT     : "OF$
  89. 990 PRINT"[206]UMBER OF CALLS :"NC:PRINT"[211]YSOP CALLS     :"SC
  90. 1000 PRINT"[213]PLOADS         :"NU:PRINT"[196]OWNLOADS       :"ND
  91. 1010 PRINT"[198]EEDBACK        :"NF
  92. 1020 PRINT"[201]NITIALIZING MODEM...":BD=MB:POKE780,MB:SYSML+33
  93. 1025 PRINT#5,"ATZ":FORI=1TO1000:NEXT:PRINT#5,"AT"MM$
  94. 1030 PRINT"[145][215]AITING FOR CALL...  "
  95. 1040 PRINT"[198]1[146]:[209]UIT  [198]3[146]:[204]OCAL MODE  [198]7[146]:[211]ETUP MENU"
  96. 1050 POKESA+14,PEEK(SA+14)AND127:LC=0:XP=0:SY=0:CD=0
  97. 1060 DD$=DD$(1):DV=D%(1):DV$=D$(1):CLOSE14:OPEN14,DV,15
  98. 1070 SYSML+9:IF(PEEK(56577)AND8)=RNTHEN1130
  99. 1080 SYSSL+6:IFPEEK(780)THEN1160
  100. 1090 GETA$:IFA$="[133]"THEN2250
  101. 1100 IFA$="[136]"THEN250
  102. 1110 IFA$="[134]"THENPRINT"[147] [204]OCAL MODE ":POKESA+14,PEEK(SA+14)OR128:SYSMD+3:LC=1:GOTO1170
  103. 1120 GOTO1070
  104. 1130 PRINT"[195]ALL ANSWERED...WAITING FOR CARRIER":SYSMD+6
  105. 1140 SYSSL+6:IFPEEK(780)=0THEN980
  106. 1150 BD=PEEK(M1+1):POKE780,BD:SYSML+33
  107. 1160 PRINT"[147] "BD$(BD)" BAUD CONNECTION "
  108. 1170 PRINT" [146][157]";:S$="[133][215]ELCOME TO "+BB$+" ON [206]OVATERM 9.4[133]":SYSOP
  109. 1180 S$="[133][197]NTER YOUR NAME: ":SYSOP:P9=25:GOSUB2510:IFI$=""ANDCD=0THEN1180
  110. 1185 IFCDTHEN980
  111. 1190 N$=I$:TR=0:IFPW$=""THEN1230
  112. 1200 S$="[133][197]NTER SYSTEM PASSWORD: ":SYSOP:P9=25:GOSUB2510:IFI$=PW$THEN1230
  113. 1210 S$="[133][201]NVALID PASSWORD[133]":SYSOP:TR=TR+1:IFTR<3THEN1200
  114. 1220 S$="[133][193]CCESS DENIED![133]":SYSOP:GOTO1980
  115. 1230 GOSUB3880:T1$=TM$:TR=0:IFN$<>SY$THEN1300
  116. 1240 S$="[133][197]NTER SYSOP PASSWORD: ":SYSOP:P9=25:GOSUB2510:IFI$=PS$THEN1270
  117. 1250 S$="[133][201]NVALID PASSWORD[133]":SYSOP:TR=TR+1:IFTR<2THEN1240
  118. 1260 GOTO1220
  119. 1270 S$="[133][211]YSOP ACCESS GRANTED[133]":SYSOP:SY=1
  120. 1280 OPEN2,DP,2,DP$+"FEEDBACK":INPUT#15,E:CLOSE2
  121. 1290 IFE=0THENS$="[133][217]OU HAVE MESSAGES WAITING.[133]":SYSOP
  122. 1300 IFF1$>""THENF$=F1$:GOSUB2690
  123. 1310 PRINT" [146][157]";:IFXPTHEN1420
  124. 1320 IFF2$>""THENF$=F2$:GOSUB2690:IFE<20THEN1420
  125. 1330 S$="[133]"+LEFT$(SP$,(33-LEN(BB$))/2)+BB$+" MENU[133]":SYSOP
  126. 1340 S$="[133][$][196]IRECTORY          [[210]]EAD TEXTFILE[133]":SYSOP
  127. 1350 S$="[#][195]HANGE DRIVE       [[212]]ERMINATE[133]":SYSOP
  128. 1360 S$="[[195]]HAT REQUEST        [[213]]PLOAD FILE[133]":SYSOP
  129. 1370 S$="[[196]]OWNLOAD FILE       [[215]]RITE TEXTFILE[133]":SYSOP
  130. 1380 S$="[[198]]EEDBACK TO SYSOP   [[216]]PERT TOGGLE[133]":SYSOP
  131. 1390 S$="[[208]]ROTOCOL[133]":SYSOP:IFSY=0THEN1420
  132. 1400 S$="[133][@][196]ISK COMMAND       [[218]][210]EAD FEEDBACK[133]":SYSOP
  133. 1410 S$="[[204]]OG OF CALLERS[133]":SYSOP
  134. 1420 S$="[133][$,#,[195],[196],[198],[208],[210],[212],[213],[215],[216]]: ":SYSOP
  135. 1430 GOSUB2630:IFCDTHEN1990
  136. 1440 IFA$="?"ORA$="H"THENS$="[205]ENU[133]":SYSOP:GOTO1320
  137. 1450 IFA$="@"ANDSYTHENS$="[196]ISK COMMAND[133]":SYSOP:GOTO3830
  138. 1460 IFA$="$"THENS$="[196]IRECTORY[133]":SYSOP:GOTO1610
  139. 1470 IFA$="#"THENS$="[195]HANGE DRIVE[133]":SYSOP:GOTO2130
  140. 1480 IFA$="C"THENS$="[195]HAT[133]":SYSOP:GOTO1660
  141. 1490 IFA$="D"THENS$="[196]OWNLOAD[133]":SYSOP:GOTO2730
  142. 1500 IFA$="F"THENS$="[198]EEDBACK[133]":SYSOP:GOTO3360
  143. 1510 IFA$="L"ANDSYTHENS$="[204]OG OF CALLERS[133]":SYSOP:GOTO3800
  144. 1520 IFA$="P"THENS$="[208]ROTOCOL[133]":SYSOP:GOTO1740
  145. 1530 IFA$="R"THENS$="[210]EAD TEXTFILE[133]":SYSOP:GOTO1900
  146. 1540 IFA$="T"THENS$="[212]ERMINATE[133]":SYSOP:GOTO1950
  147. 1550 IFA$="U"THENS$="[213]PLOAD[133]":SYSOP:GOTO3090
  148. 1560 IFA$="W"THENS$="[215]RITE TEXTFILE[133]":SYSOP:GOTO2050
  149. 1570 IFA$="X"THENS$="[197]XPERT TOGGLE[133]":SYSOP:GOTO2110
  150. 1580 IFA$="Z"ANDSYTHENS$="[210]EAD FEEDBACK[133]":SYSOP:GOTO3770
  151. 1590 IFA$=CHR$(13)THEN1310
  152. 1600 GOTO1430
  153. 1610 IFDD$>""THENS$="[133][196]IRECTORY: "+DD$+"[133]":SYSOP
  154. 1620 S$="[133]":SYSOP:OPEN1,DV,0,"$"+LEFT$(DV$,LEN(DV$)-1):GET#1,A$,A$
  155. 1630 SYSML+54:IFMID$(Z$,7,1)="\"ANDSY=0THEN1630
  156. 1640 S$=Z$+"[133]":SYSOP:IFRIGHT$(Z$,1)<>"."ANDRIGHT$(Z$,4)<>"FREE"THEN1630
  157. 1650 CLOSE1:GOSUB2240:GOTO1310
  158. 1660 S$="[133][208]AGING SYSOP...":SYSOP:J=0:FORI=1TO5:S$=".":SYSOP
  159. 1670 FORT=1TO1500:NEXT:GETA$:IFA$="[133]"THENJ=1:I=5
  160. 1680 NEXT:IFJ=0THENS$="[133][133]"+SY$+" IS NOT AVAILABLE.[133]":GOTO1310
  161. 1690 S$="[133][133][197]NTERING CHAT[133][133]":SYSOP
  162. 1700 GETA$:GET#5,B$:IFA$>""THENS$=A$:SYSOP
  163. 1710 IFB$>""THENS$=CHR$(PEEK(RV+ASC(B$))):SYSOP
  164. 1720 IFA$<>"[133]"THEN1700
  165. 1730 S$="[133][204]EAVING CHAT[133]":SYSOP:GOTO1310
  166. 1740 OPEN1,DP,0,"$"+DV$+"PRT.*":GOSUB2340:IFERTHENCLOSE1:GOTO1310
  167. 1750 GET#1,A$,A$:SYSML+54:FL=0
  168. 1760 SYSML+54:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THEN1810
  169. 1770 F$="":FORI=11TO22:A$=MID$(Z$,I,1):IFA$=CHR$(34)THENI=22:GOTO1790
  170. 1780 F$=F$+A$
  171. 1790 NEXT:IFF$=""THEN1760
  172. 1800 FL=FL+1:F$(FL)=F$:GOTO1760
  173. 1810 CLOSE1:IFFL=0THENS$="[133][206]O PROTOCOL FILES[133]":GOTO1310
  174. 1820 S$="[133][211]ELECT PROTOCOL:[133][133]":SYSOP
  175. 1830 FORI=1TOFL:S$=CHR$(I+192)+") "+F$(I)+"[133]":SYSOP:NEXT:S$="[133][211]ELECT: ":SYSOP
  176. 1840 GOSUB2630:IFCDTHEN1990
  177. 1850 IFA$=CHR$(13)THENS$=A$:SYSOP:GOTO1310
  178. 1860 IFA$<"A"ORA$>CHR$(FL+64)THEN1840
  179. 1870 S$=CHR$(ASC(A$)+128)+"[133]":SYSOP:P=ASC(A$)-64:F$="PRT."+F$(P)
  180. 1880 OPEN2,DP,0,DV$+F$:GOSUB2340:CLOSE2:IFER=0THENGOSUB4340:PT$=F$(P):GOSUB3070
  181. 1890 GOTO1310
  182. 1900 S$="[133][198]ILE NAME: ":SYSOP:P9=16:GOSUB2510:IFI$=""THEN1310
  183. 1905 IFLEFT$(I$,1)="\"ANDSY=0THENI$=MID$(I$,2)
  184. 1910 S$="[133]":SYSOP:OPEN2,DV,2,DV$+I$+",S":GOSUB2340:IFERTHEN1940
  185. 1920 POKE781,2:SYSML+60:F=ST:SYSOP:IFF=0THEN1920
  186. 1930 GOSUB2240
  187. 1940 CLOSE2:GOTO1310
  188. 1950 GOSUB2360:IFY=0THEN1310
  189. 1960 IFF3$>""THENF$=F3$:GOSUB2690
  190. 1970 S$="[133][199]OODBYE![133]":SYSOP
  191. 1980 SYSMD:SYSSL+6:IFPEEK(780)THENFORT=1TO2500:NEXT:GOTO1980
  192. 1990 GOSUB3880:PRINT" ":PRINTN$" LOGGED OUT AT "TM$
  193. 2000 OPEN2,DP,2,DP$+"\CALLER LOG,S,A":INPUT#15,E
  194. 2010 IFE>19THENCLOSE2:OPEN2,DP,2,DP$+"\CALLER LOG,S,W"
  195. 2020 PRINT#2,LEFT$(N$+"...............................",23)T1$"-"TM$:CLOSE2
  196. 2030 LC$=N$:OF$=TM$:NC=NC+1:IFSYTHENSC=SC+1
  197. 2040 GOSUB4090:GOTO980
  198. 2050 S$="[133][198]ILE NAME: ":SYSOP:P9=16:GOSUB2510:IFI$=""THEN1310
  199. 2060 OPEN2,DV,2,DV$+I$+",S,W":GOSUB2340:IFERTHEN2100
  200. 2070 S$="[133][197]NTER TEXT ONE LINE AT A TIME.[133]":SYSOP
  201. 2080 S$="[197]NTER THE @ SYMBOL BY ITSELF TO END.[133][133]":SYSOP
  202. 2090 P9=78:GOSUB2510:IFI$<>"@"THENSYSML+24:PRINT#2,I$:SYSML+21:GOTO2090
  203. 2100 CLOSE2:GOTO1310
  204. 2110 XP=1-XP:IFXPTHENS$="[133][197]XPERT MODE [207][206][133]":SYSOP:GOTO1310
  205. 2120 S$="[133][197]XPERT MODE [207][198][198][133]":SYSOP:GOTO1310
  206. 2130 IFDD=1THENS$="[133][207]NLY ONE DRIVE AVAILABLE[133]":SYSOP:GOTO1310
  207. 2140 S$="[133][211]ELECT DRIVE:[133][133]":SYSOP:FORI=1TODD:S$=CHR$(I+192)+") ":SYSOP
  208. 2150 IFDD$(I)>""THENS$=DD$(I)+"[133]":GOTO2170
  209. 2160 S$="[196]EVICE"+STR$(D%(I))+", [196]RIVE "+LEFT$(D$(I),LEN(D$(I))-1)+"[133]"
  210. 2170 SYSOP:NEXT:S$="[133][211]ELECT: ":SYSOP
  211. 2180 GOSUB2630:IFCDTHEN1990
  212. 2190 IFA$=CHR$(13)THENS$=A$:SYSOP:GOTO1310
  213. 2200 IFA$<"A"ORA$>CHR$(DD+64)THEN1840
  214. 2210 D=ASC(A$)-64:S$=CHR$(D+192)+"[133]":SYSOP:DD$=DD$(D):DV=D%(D):DV$=D$(D)
  215. 2220 CLOSE14:OPEN14,DV,15:CLOSE14:IF128ANDSTTHEN2140
  216. 2230 OPEN14,DV,15:GOTO1310
  217. 2240 IFXPTHENRETURN
  218. 2245 S$="[133]* [200]IT A KEY *":SYSOP:GOSUB2630:S$="[133]":SYSOP:RETURN
  219. 2250 PRINT"[211]AVE STATS?  [146][157]";
  220. 2260 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2260
  221. 2270 IFA$="N"THENPRINT"NO":GOTO2300
  222. 2280 PRINT"YES":PRINT#15,"S"DP$"\STATS":OPEN2,DP,2,DP$+"\STATS,S,W":PRINT#2,Q$LC$
  223. 2290 PRINT#2,Q$OF$:PRINT#2,NC:PRINT#2,SC:PRINT#2,NU:PRINT#2,ND:PRINT#2,NF:CLOSE2
  224. 2300 POKE6,255:OPEN2,DP,0,DP$+"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN2320
  225. 2310 LOADDP$+"PROG MENU",DP
  226. 2320 OPEN2,DP,0,DP$+"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  227. 2330 LOADDP$+"NOVATERM ?.?*",DP
  228. 2340 ER=0:INPUT#14,E,E$:IFE>19THENER=1:S$="[133]"+E$+"[133]":SYSOP
  229. 2350 RETURN
  230. 2360 S$="[133][193]RE YOU SURE? ":SYSOP
  231. 2370 GOSUB2630:IFCDTHENY=0:RETURN
  232. 2380 IFA$="Y"THENS$="YES[133]":SYSOP:Y=1:RETURN
  233. 2390 IFA$="N"THENS$="NO[133]":SYSOP:Y=0:RETURN
  234. 2400 GOTO2370
  235. 2410 OPEN9,3:POKE780,P9:SYSML+39:CLOSE9:RETURN
  236. 2510 I$="":CD=0
  237. 2520 IFLC=0THENGET#5,B$:IFB$>""THEN2560
  238. 2530 IFLC=0THENSYSSL+6:IFPEEK(780)=0THENI$="":CD=1:RETURN
  239. 2540 GETA$:IFA$=""THEN2520
  240. 2550 GOTO2570
  241. 2560 A$=CHR$(PEEK(RV+ASC(B$)))
  242. 2570 IF(ASC(A$)AND127)<32THEN2600
  243. 2580 IFLEN(I$)=P9THEN2520
  244. 2590 I$=I$+A$:S$=A$:SYSOP:GOTO2520
  245. 2600 IFA$=CHR$(20)ANDI$>""THENI$=LEFT$(I$,LEN(I$)-1):S$=A$:SYSOP:GOTO2520
  246. 2610 IFA$=CHR$(13)THENS$=A$:SYSOP:RETURN
  247. 2620 GOTO2520
  248. 2630 IFLC=0THENGET#5,A$:IFA$>""THEN2660
  249. 2640 IFLC=0THENSYSSL+6:IFPEEK(780)=0THENCD=1:RETURN
  250. 2650 GETA$:IFA$=""THEN2630
  251. 2660 A=PEEK(RV+ASC(A$)):IFA>=97ANDA<=122THENA=A-32
  252. 2670 IFA>=193ANDA<=218THENA=A-128
  253. 2680 A$=CHR$(A):RETURN
  254. 2690 OPEN2,DP,2,DP$+F$:INPUT#15,E:IFE>19THENCLOSE2:RETURN
  255. 2700 S$="[133]":SYSOP
  256. 2710 POKE781,2:SYSML+60:F=ST:SYSOP:IFF=0THEN2710
  257. 2720 CLOSE2:RETURN
  258. 2730 IFLCTHENS$="[133][195]AN'T DOWNLOAD IN LOCAL MODE[133]":SYSOP:GOTO1310
  259. 2735 S$="[133][208]ROTOCOL: "+PT$+"[133]":SYSOP:TT=0:IF(PEEK(PT+14)AND8)THEN2890
  260. 2740 S$="[133][198]ILE NAME: ":SYSOP:P9=16:GOSUB2510:IFI$=""THEN1310
  261. 2750 IFLEFT$(I$,1)="\"ANDSY=0THENI$=MID$(I$,2)
  262. 2760 TS=0:OPEN1,DV,0,"$"+DV$+I$:GOSUB2340:IFERTHENCLOSE1:GOTO1310
  263. 2770 GET#1,A$,A$:SYSML+54:SYSML+54:CLOSE1
  264. 2780 IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THENTS=1
  265. 2790 IFTSTHENS$="[133][198]ILE NOT FOUND[133]":SYSOP:GOTO1310
  266. 2810 TT$=MID$(Z$,25,3):TP$=LEFT$(TT$,1):TT=-(TP$="P")-2*(TP$="S")-3*(TP$="U")
  267. 2820 S$="[133][198]ILE NAME: "+I$+"[133][198]ILE TYPE: "+TT$+"[133][198]ILE BLOCKS:"+STR$(VAL(Z$))+"[133]"
  268. 2830 SYSOP:OPEN2,DV,2,DV$+I$:GOSUB2340:IFERTHENCLOSE2:GOTO1310
  269. 2840 GOSUB3355:S$="[133][194][194][211] READY TO SEND FILE[133][208]RESS [195]TRL-[216] TO ABORT[133]":SYSOP
  270. 2850 PRINT" ":PRINT"[194]YTES SENT :           [197]RRORS :";
  271. 2860 POKEPT+16,TT:SYSPT-9:PRINT:ND=ND+1
  272. 2870 IFPEEK(PT+15)THENS$="[133][196]OWNLOAD ABORTED[133]":SYSOP:ND=ND-1
  273. 2880 CLOSE2:GOTO1310
  274. 2890 S$="[133][197]NTER A BLANK FILE NAME TO END.[133][133]":SYSOP:FL=0               
  275. 2900 S$="[206]AME OF FILE"+STR$(FL+1)+": ":SYSOP:P9=16:GOSUB2510:IFI$=""THEN2950
  276. 2910 IFLEFT$(I$,1)="\"ANDSY=0THENI$=MID$(I$,2)
  277. 2920 OPEN2,DV,2,DV$+I$:INPUT#14,E:CLOSE2:IFE>19THEN2900
  278. 2940 FL=FL+1:F$(FL)=I$:IFFL<9THEN2900
  279. 2950 F$(FL+1)="":IFFL=0THEN1310
  280. 2960 S$="[133][194][194][211] READY TO SEND FILES[133][208]RESS [195]TRL-[216] TO ABORT[133]":SYSOP
  281. 2970 SYSPT-9:FF=0:FORY=1TOFL+1:I$=F$(Y):IFI$=""THEN3030
  282. 2980 OPEN1,DV,0,"$"+DV$+I$:GOSUB2340:IFERTHENCLOSE1:GOTO1310
  283. 2990 GET#1,A$,A$:SYSML+54:SYSML+54:CLOSE1
  284. 3000 TP$=MID$(Z$,25,1):TT=-(TP$="P")-2*(TP$="S")-3*(TP$="U")
  285. 3010 OPEN2,DV,2,DV$+I$:GOSUB2340:IFERTHENCLOSE2:GOTO3050
  286. 3020 PRINT" ":PRINT"[211]ENDING "I$:PRINT"[194]YTES SENT :           [197]RRORS :";
  287. 3030 POKEPT+16,TT:SYSPT-9:CLOSE2:PRINT
  288. 3040 IFPEEK(PT+15)THENY=FL+1
  289. 3050 FF=FF+1:NEXT:IFPEEK(PT+15)THENS$="[133][196]OWNLOAD ABORTED[133]":SYSOP:FF=FF-1
  290. 3060 ND=ND+FF:GOTO1310
  291. 3070 POKEPT,1:POKEPT+18,DV:POKEPT+21,0:POKEPT+23,SP:POKEPT+24,VAL(DV$)
  292. 3080 POKEPT+14,PEEK(PT+14)OR16:RETURN
  293. 3090 IFLCTHENS$="[133][195]AN'T DOWNLOAD IN LOCAL MODE[133]":SYSOP:GOTO1310
  294. 3095 FL=0:S$="[133][208]ROTOCOL: "+PT$+"[133]":SYSOP:IF(PEEK(PT+14)AND10)=0THEN3130
  295. 3100 B$="":IFPEEK(PT+14)AND8THENB$="S"
  296. 3110 H$="":S$="[133][200]IDE THE FILE"+B$+"? ":SYSOP:GOSUB2370:IFYTHENH$="\"
  297. 3115 GOSUB3355:S$="[133][194][194][211] READY TO RECEIVE FILE"+B$+"[133][208]RESS [195]TRL-[216] TO ABORT[133]"
  298. 3120 SYSOP:PRINT" [145]";:GOTO3300
  299. 3130 S$="[133][198]ILE NAME: ":SYSOP:P9=16:GOSUB2510:IFI$=""THEN1310
  300. 3140 OPEN2,DV,2,DV$+I$:INPUT#14,E:CLOSE2:IFE<20THENS$="[133][198]ILE EXISTS[133]":SYSOP:GOTO1310
  301. 3150 TP$="P":TT$="":IFPEEK(PT+14)AND1THEN3220
  302. 3160 S$="[133][198]ILE TYPE (PRG,SEQ,USR): ":SYSOP
  303. 3170 GOSUB2630:IFCDTHEN1990
  304. 3180 IFA$=CHR$(13)THENS$=A$:SYSOP:GOTO1310
  305. 3190 IFA$<>"P"ANDA$<>"S"ANDA$<>"U"THEN3170
  306. 3200 TT=-(A$="P")-2*(A$="S")-3*(A$="U"):S$=MID$("PRGSEQUSR",TT*3-2,3)+"[133]":SYSOP
  307. 3210 TP$=A$
  308. 3220 H$="":S$="[133][200]IDE THE FILE? ":SYSOP:GOSUB2370:IFYTHENH$="\"
  309. 3225 GOSUB3355:IFPEEK(PT+14)AND1THEN3285
  310. 3230 TT$=","+TP$:OPEN2,DV,2,DV$+H$+I$+TT$+",W":GOSUB2340:FL=FL+1
  311. 3240 IFERAND(PEEK(PT+14)AND8)=0THENCLOSE2:GOTO1310
  312. 3250 IFERANDE=63THENI$=LEFT$(I$,LEN(I$)-1)+CHR$(ASC(RIGHT$(I$,1))+1):GOTO3230
  313. 3260 IFERTHENSYSPT-3:GOTO3310
  314. 3270 A=PEEK(PT+14)AND11:IFAANDA<8THENI$=""
  315. 3280 IFI$=""THENPRINT"[145]";:GOTO3300
  316. 3285 IFFL=0ORA=0THENS$="[133][194][194][211] READY TO RECEIVE FILE[133][208]RESS [195]TRL-[216] TO ABORT[133]":SYSOP
  317. 3290 PRINT" ":PRINT"[210]ECEIVING: "I$TT$:PRINT"[194]YTES RECV :           [197]RRORS :";
  318. 3300 POKEPT+16,TT:SYSPT-6:CLOSE2:PRINT:NU=NU+1
  319. 3310 IFPEEK(PT+15)THENS$="[133][213]PLOAD ABORTED![133]":SYSOP:PRINT#14,"S"DV$I$:NU=NU-1:GOTO1310
  320. 3320 IF(PEEK(PT+14)AND11)=0ORI$=""THEN1310
  321. 3330 TT=PEEK(PT+16):TP$=MID$("PSU",TT,1):IFTT=0THENTT=1:TP$="P"
  322. 3340 IFLEN(I$)>1THENIFMID$(I$,LEN(I$)-1,1)=","THENTP$=RIGHT$(I$,1):I$=LEFT$(I$,LEN(I$)-2)
  323. 3350 I$=LEFT$(I$,16):GOTO3230
  324. 3355 S$="[133][193][211][195][201][201][160]TRANSLATION DURING TRANSFER? ":SYSOP:GOSUB2370:POKEPT+22,Y:RETURN
  325. 3360 LI=0:GOSUB3880                                      
  326. 3370 S$="[133][198]ROM: "+N$+"[133][212]IME: "+TM$+"[133][133][197]NTER YOUR MESSAGE:[133][133]":SYSOP
  327. 3380 IFLI=20THENS$="[133][206]O MORE ROOM[133]":GOTO3440
  328. 3390 FORI=LI+1TO20:S$=RIGHT$(STR$(I),2)+": ":SYSOP:P9=74:GOSUB2510:IFI$=""THENLI=I-1:I=20
  329. 3400 IFI$>""THENMS$(I)=I$
  330. 3410 NEXT:IFLI=0ANDMS$(20)>""THENLI=20:S$="[133][206]O MORE ROOM[133]":SYSOP
  331. 3420 S$="[133][[193]]BORT          [[195]]ONTINUE MESSAGE[133][[196]]ELETE LINE    [[197]]DIT LINE[133]"
  332. 3430 SYSOP:S$="[[201]]NSERT LINE    [[204]]IST MESSAGE[133][[211]]AVE MESSAGE[133]":SYSOP
  333. 3440 S$="[133][[193],[195],[196],[197],[201],[204],[211]]: ":SYSOP
  334. 3450 GOSUB2630:IFCDTHEN1990
  335. 3460 S$=A$+"[133]":IFA$="?"THENSYSOP:GOTO3420
  336. 3470 IFA$="A"THENSYSOP:GOTO3750
  337. 3480 IFA$="C"THENS$=S$+"[133]":SYSOP:GOTO3380
  338. 3490 IFA$="D"THENSYSOP:GOTO3580
  339. 3500 IFA$="E"THENSYSOP:GOTO3610
  340. 3510 IFA$="I"THENSYSOP:GOTO3650
  341. 3520 IFA$="L"THENSYSOP:GOTO3680
  342. 3530 IFA$="S"THENSYSOP:GOTO3700
  343. 3540 GOTO3450
  344. 3550 L=0:S$="[133][204]INE NUMBER: ":SYSOP:P9=2:GOSUB2510:IFI$=""THENRETURN
  345. 3560 L=VAL(I$):IFL<1ORL>LITHENL=0
  346. 3570 RETURN
  347. 3580 IFLI=0THEN3440
  348. 3590 GOSUB3550:IFL=0THEN3440
  349. 3600 FORI=L+1TOLI:MS$(I-1)=MS$(I):NEXT:LI=LI-1:GOTO3440
  350. 3610 GOSUB3550:IFL=0THEN3440
  351. 3620 S$="[133]"+RIGHT$(STR$(L),2)+": "+MS$(L)+"[133]"+RIGHT$(STR$(L),2)+": ":SYSOP
  352. 3630 P9=74:GOSUB2510:IFI$=""THEN3440
  353. 3640 MS$(L)=I$:GOTO3440
  354. 3650 IFLI=20THEN3440
  355. 3660 GOSUB3550:IFL=0THEN3440
  356. 3670 FORI=LITOLSTEP-1:MS$(I+1)=MS$(I):NEXT:LI=LI+1:MS$(L)="":GOTO3440
  357. 3680 S$="[133]":SYSOP:FORI=1TOLI:S$=RIGHT$(STR$(I),2)+": "+MS$(I)+"[133]":SYSOP:NEXT
  358. 3690 GOTO3440
  359. 3700 GOSUB2360:IFY=0THEN3440
  360. 3710 S$="[133][211]AVING...[133]":SYSOP:OPEN2,DP,2,DP$+"FEEDBACK,S,A":INPUT#15,E
  361. 3720 IFE>19THENCLOSE2:OPEN2,DP,2,DP$+"FEEDBACK,S,W"
  362. 3730 PRINT#2:PRINT#2,"[198]ROM: "N$:PRINT#2,"[212]IME: "TM$:PRINT#2
  363. 3740 FORI=1TOLI:PRINT#2,MS$(I):NEXT:CLOSE2:NF=NF+1:GOTO1310
  364. 3750 GOSUB2360:IFY=0THEN3440
  365. 3760 S$="[133][193]BORTED[133]":SYSOP:GOTO1310
  366. 3770 F$="FEEDBACK":GOSUB2690:IFE>19THENS$="[133][206]O FEEDBACK[133]":SYSOP:GOTO1310
  367. 3780 S$="[133][196]ELETE MESSAGES? ":SYSOP:GOSUB2370:IFYTHENPRINT#15,"S"DP$"FEEDBACK":NF=0
  368. 3790 GOTO1310
  369. 3800 F$="\CALLER LOG":GOSUB2690:IFE>19THENS$="[133][206]O CALLER LOG[133]":SYSOP:GOTO1310
  370. 3810 S$="[133][196]ELETE CALLER LOG? ":SYSOP:GOSUB2370:IFYTHENPRINT#15,"S"DP$"\CALLER LOG"
  371. 3820 GOTO1310
  372. 3830 S$="[133][196]EVICE"+STR$(DV)+", DRIVE "+LEFT$(DV$,LEN(DV$)-1)+"[133]":SYSOP
  373. 3840 S$="[133][196][207][211]>":SYSOP
  374. 3850 P9=50:GOSUB2510:IFI$=""THEN1310
  375. 3860 PRINT#15,I$:INPUT#15,E1$,E2$,E3$,E4$:S$="[133]"+E1$+","+E2$+","+E3$+","+E4$+"[133]":SYSOP
  376. 3870 GOTO3840
  377. 3880 H=PEEK(56587):M=PEEK(56586):A=PEEK(56584)
  378. 3890 A$="AM":IFH>127THENA$="PM":H=HAND127
  379. 3900 H=H-INT(H/16)*6:M=M-INT(M/16)*6:M$=MID$(STR$(M),2):IFM<10THENM$="0"+M$
  380. 3910 TM$=MID$(STR$(H),2)+":"+M$+A$:RETURN
  381. 3920 POKE780,P:POKE781,D:POKE782,MX:POKEDT+37,TU+TB:SYSSL+27:P=PEEK(780):TU=0:RETURN
  382. 4090 OPEN2,DP,2,DP$+"NOVA DATA 9.4":INPUT#15,E:IFE>19THENCLOSE2:RETURN
  383. 4100 INPUT#2,V$:IFV$<>"9.4"THENCLOSE2:RETURN
  384. 4110 INPUT#2,BD,DI,D1,D2,D1$,D2$,D3,D3$,PN,PS,C1,C2,C3,C4,B,RE,C7,C8,C9,XO,XF,XP,SW
  385. 4130 INPUT#2,LD,C,D,E,F:FORI=0TO17:INPUT#2,A:POKESA+40+PEEK(678)*18+I,A:NEXT
  386. 4140 INPUT#2,MI$,MO$,PT$,FO$:CLOSE2
  387. 4150 POKEDT+25,B:POKEDT+32,C:POKEDT+8,D
  388. 4180 IFMO$>""THENF$="MODEM."+MO$:GOSUB4340:GOSUB4320:IFE>19THENMO$=A1$
  389. 4190 IFPT$>""THENF$="PRT."+PT$:GOSUB4340:GOSUB3070:IFE>19THENPT$=A2$
  390. 4200 IFFO$>""THENF$="FONT."+FO$:GOSUB4340:IFE>19THENFO$=""
  391. 4230 F$="ASC.STANDARD":GOSUB4340
  392. 4240 POKE53280,C1:POKE53281,C2:POKE646,C3:SYSML+57
  393. 4260 IFSW=0THENPOKEDT+10,0:GOTO4300
  394. 4270 POKEDT+10,1
  395. 4280 POKE781,-222*(SW=1)-223*(SW=2)-215*(SW=3):SYSML+63:A=PEEK(781)*256
  396. 4290 POKEA+1,0:POKEA+2,9
  397. 4300 IFMB>2THENMB=BD
  398. 4310 POKE780,BD:SYSML+33:RETURN
  399. 4320 IF(PEEK(M1+4)AND2)=0THENDI=0
  400. 4330 POKEM1+4,(PEEK(M1+4)AND3)ORDI*4:MB=PEEK(M1):RETURN
  401. 4340 SYSML+24:POKE780,DP:F$=DP$+F$:SYSSL+21:INPUT#15,E:CLOSE2:SYSML+21:RETURN
  402.